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9 
BASSMSG = write BASMSG.MSG 1S-sep-19 91:39:08 AX-11 Bliss-32 V4.0-7 
14-Sep-1984 11:55: BASRTL.SRCJBASMSGGEN. 3 2:1 
1 ZTITLE “BASSMSG = write BASMSG.MSG' 
§ MODULE BASSMSG ( ! Write BASMSG. BSG 
IDENT = *2-003', ' File: BASMS 56,8 
004 MAIN = BASSHSG i Edit: MDL2003 
a3) pecin 
0009 : , Seoenereserarercenenesenensaceererenesersenenerenenenneneseeeesenantersesttt 
'e * 
010 1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 
0011 1 !* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * 
0018 : . ALL RIGHTS RESERVED - 
14 1 Ie THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
0015 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE ar atte THE * 
Bo18 1 !* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR OTHER * 
001 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
0018 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
dh : :* TRANSFERRED. * 
'e * 
$0 1 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
00 ¢ 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
00 ? : :s CORPORATION. : 
00 5 1 i DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
83 $ ; - SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. a 
: 
0099 ;  cseemeahiitaaiesieiiidii heh thane latina bieteiihia hire nnine gemnaematnemateeeneaes 
1 4 
0031 1 
it 4 1 fee 
it : FACILITY: BASIC 
0035 i ABSTRACT: 
$039 1 This module, BASMSG. 832 is a Bliss32 program that writes 
0038 1! the file BASMSG. MSG, which 7s read by the message compiler 
st 4 : to produce BASIC's pun-tine messages. 
0041 : ENVIRONMENT: Runs at any access mode - AST reentrant 
Goe§ : AUTHOR: John Sauter, CREATION DATE: 03-Nov-78 
6048 1 MODIFIED BY: 
00e? 1! 1-001 - Ucite BASMSG.MDL on LIB$: JBS 27-NOV-78 
00468 1! 1-296 = change. PC printed by ON_CHAF L to be hex. JBS 19-DEC-78 
9 1! 1-00 O List message. JBS 08-FEB-1 
50 1! ' -004 - Correct a Lig I in the 1/0 List messege JBS 09-FEB-1979 
51 1! 1-005 = Write outpu on SACS: Jes 21-MAR-1979 
$036 1! 1-006 - Correct spellin 1/0 List message. JBS 20-APR-1979 
os a? - Chenee the pref res of tee ¢ Specebact 3 messages to make 
54 1! less confusi ™ 
55 1! 1-008 - change the text of the eR ae me s .. reter go a SUB 
36 +! @ SUBPROGRAM, mot a SUBROUTINE. JBS 07-MAY-197 
57 1! 1-009 - add ° message for showing the user PC and Ps at the time 


Page 


1 
(1) 


—— 


kar — 


ays page theo iam: eta 11:58:28 East °SneSeasmsacen.682: 1 a 


é of the error. JBS 11-MAY-1979 
; $19 - Correct a typo in edit 009. JBS 13-MAY-1979 
; 11 = Add an 1/0 error monsene which does not geye 2 a chang! number, 
: for the non=-channel 1/0 statements. JBS 09-AUG-1 
: i = Change 1/0 List to Immediate Mode. 108° 17-SEP-1979 
. 13 = Write ovtoes on 393. JBS 17-SEP-19 
: 14 - Write a $, to conform to SBL's new procedure. 
; JBS 20- ot P=1979 
; 015 = Allow up to 60-character message text. JBS 24-SEP-1979 
016 - seers MF he to SEpPrete - «MSG file rather than .MDL 
3 e. -Jun-1 
; . 1 = convert program to Bliss32; adopted from EDTMSG. MDL 25-Jun-1982 
; -002 = change to write BASMSG.TMP. w o*s8 is soe ared with BASMSG.MSG 
for a consistency check. BLS an 38 
2-003 = facility mame is BAS, not BASIC. MDL 30-Jun-1983 


Se Se Se Ge Ge Se Ge Oe Se Ge Oe Ge Ge Ge Oe Ge Ge Se oe 
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NOw 
te) w oO 
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ana a aa a a at at at a ss = = os ~ 9 ss 1 


BASSMSG - write BASMSG.MSG 
Declarations 


: 


SSSSSssssssss 
Arun oe 


QD00 
coo 


S 


aa a aaa a a at at a tt tl a = a = 2 2 = = as 4 1 1 


333s 
Mwy 


esses 
E233 


SARAN LSS 


oo 


SOOOSOOSOSOSCSOOOCOOOSOCOSOOSOOCOOOOCOOSCOOSoOoOoOoOoOoOo 
a ee ed a ed ed ad a od od od od 
PONT SS eNO wr —OSe 


WIN AIP OROPONOPORNUNONUN = 


Wwnr—O0Onou 


SSBTTL ‘Declarations’ 
; SWITCHES: 


SWITCHES ADDRESSING_MODE (EXTERNAL = GENERAL, NONEXTERNAL = WORD_RELATIVE); 


' 

i LINKAGES: 
; NONE 
! TABLE OF CONTENTS: 


FORWARD ROUTINE 

Write BASMSG. TMP 
WRITE_FILE, Actually write the text 

PRINT Print a line of text d 

Convert binary to hexadecimal 
Convert binary to ASCII, printable 


HEX TEXT 
PRINTABLE _TEXT; 
] 


; INCLUDE FILES: 
LIBRARY *SYSSLIBRARY:STARLET’; 
LITERAL 

BASSK_FAC_NO = 26; 
MACROS: 
; NONE 
i EQUATED SYMBOLS: 


FIELDS: 
NONE 

STRUCTURES: 
NONE 

PSECTS: 


OWN STORAGE: 
NONE 
EXTERNAL REFERENCES: 


9 
1b-Sep-1984 01:42:08 yan=t Blisge32 v4.007 


co 


9 
ASSMSG BASSMSG = write BASMSG.MSG 18-5 “19 1:42: AX-11 Bliss-32 v4.0-74 
8 3 Declarations 12-80 8- 1382 91:98:98 BASRTL. RCIBASMSGGEN 2:1 


s 135 1 1 

. 135 1 EXTERNAL ROUTINE 

es 1 1 STRSCOPY_DX, ! Copy a string, by descriptor 
i. 1 1 STRSCONCAT ! Concatenate str ngs 

: 4 138 1 LIBS$GET_INPUT, i Get a Line from SYSS$INPUT 

: 140 139 (1 STRSCOPY_R, ! Copy a string, by reference 
3; (141 140 1 STRSFREET_Dx, ' Free a dynamic string 

3 16g bree : ERRTXT; ! Return the text of a message 


-—--—-——__ -—_ - - --- -—--—----- ———— -— ———-— ——_— ———————— ee 


k 9 
| BASSMSG BASSMSG - write BASMSG.MS 16-Sep-1 1:42: AX-11 Bliss-32 V4.0-74 
a Package of macros for series processing 137300- 138 94:98:98 BASRTL. RC IBASMSGGEN.B 231 
$? 169 1 BSBTTL "Package of macros for string processing’ 
of ; Macro to initialize a dynamic descriptor. 
rk <3 ; 
a $8 MACRO 
1 M014 INIT_DESCRIPTOR (DESCR) = 
2¢ M 0 BESCR COSC$W_LENGTH) = 0; 
m 0151 DESCR DS¢$B-DTYPE) = DSCSK_DTYPE_T; 
54 a é DESCR LDSCSB_CLASS] = DSCSK_CLASS_D; 
5 i} i : DESCR LDSCSA_POINTER] = 0; 
5 3 | <BLF /MACRO> 
8 2$ '¢ 
y rH } Macro to discard a dynamic descriptor. 
1 59 DISCARD_DESCRIPTOR (DESCR) = 
$9 BEGIN 
o¢ LOCAL 
6 FREE_STATUS; 


FREE STATUS = STRSFREE1_DX (DESCR); 
IF ( NOT .FREE_STATUS) THEN SIGNAL_STOP (.FREE_STATUS); 
END; 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
Hie 
'¢ 
: Macro to build a text Line using FAO. This is a convenience macro. 
; BUILD TERT LINE (DESCR, CTL STRING, FAO_ARGS) = 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
T 
1 
1 
1 
1 
1 
1 


AL 
AO_ STATUS 
OPY_STATUS; 
é XCHARCOUNT (CTL_STRING); 
SCSK_DTYPE_T; 

SCSK-CLASS“S: 

CHSPTR CUPLIT (CTL_STRING)); 

' 


LENGTH ; 


R_D 
R7D 
i 
aTu 
L_S 
ouT 
TEMP STR_DSC, 

ZREMOVE TFAO/ARGS)); 
IF ( NOT .FAO_STATUS) THEN SIGNAL_STOP (.FAO_STATUS); 


COPY STATUS = STRSCOPY_R (DESCR, OUT_LENGTH, .TEMP_STR_DSC CDSCSA_POINTER)); 
zCOPY_STATUS 


SIRES LSSELEARRAV AS SSVSARANISSSISAFERTIS SEITE 


SOOOSOSOCOSOSOSOSSOOOSSOOCOOOCoooooooooooooooooooooo 


a a a a a ed a ed ed od a = 


G0 00 00 0009 09 I INI IO OOOO 
SSS HSS SSS FRR S sae FN SSS 23SSF 


x, 
'¢ 


: Macro to format and print a line. Errors are returned to the caller. 
! This is a convenience macro. 


SS8S 


wor 
o 
a 


1 


2 
BASSMSG BASSMSG - write BASMSG.MSG PK 1984 01: i 8 isreth Bliss-32 V4.0-7 Page 
2-003 Package of macros for string processing 14-Sep-1984 11:5 BASRTL. SRC JBASMSGGEN. 8 231 
$ oe 0200 1 !- 
; 0 m 020 1 PRINT_LINE (TEXT, VARS) = 
3: 204 ™ 0202 1 BEGIN 
; 205 ™0203 1 
3 06 i.) 8 06 «1 OCAL 
: 207 m 0205 1 BUILD STATUS, 
H 4 a 0 oF ! PRINT STATUS; 
: 9 a 0 og : BUILD_STATUS = BUILD_TEXT_LINE (LINE_DESC, %STRING (REMOVE (TEXT)), VARS); 
; $4 2 0 19 : IF ( NOT .BUILD STATUS) THEN RETURN (.BUILD_STATUS); 
: 4 nm 0 \g PRINT_STATUS = PRINT (.OUTPUT_RAB, LINE_DESC); 
; 8 x 9 14 IF ( NOT .PRINT_STATUS) THEN RETURN (.PRINT_STATUS); 
: 218 M0216 1 END 
; 219 0217 1 B3 
; 220 0218 #1 


eee 


m 9 
ASSMSG ASSMSG = write BASMSG.MS 16-Sep-1984 01:42: AX-11 Bliss-32 V4.0 
003 ASSMSG = Write BASMSG.T 10388-1984 91:98:98 BASRTL.SRC ReSBASMSGGEN.B B52;1 
ZSBITL "BASSMSG = Write BASMSG.TMP' 
ROUTINE BASSMSG ! Write BASMSG. TMP 


!ee 


i FUNCTIONAL DESCRIPTION: 
This routine writes the file BASMSG. TMP. 


OOooooceo aw 
WAI WII WIIWwirnonoronofnononononon — 


+H 1 

: $38 3 | 

-: 5 | 

3 226 1 

: 7 ~ 7 

3 8 > ee 

$ 9 0226 1! 

; 0 0227 1! 

; $ 1 0 : ! CALLING SEQUENCE: 

; § 5 p ! ret_status.wic.v = BASSMSG () 

s 235 0 ¢ 1 ! FORMAL PARAMETERS: 

; 236 0 1! 

s go 0234 1! NONE 

: 238 0235 1! 

s 2s 8 6 1 ! IMPLICIT INPUTS: 

; 240 § = é. 

3: 241 0238 1! NONE 

3 sof 0239 1! 

s 2 0240 1 ! IMPLICIT OUTPUTS: 

3 246 0241 1! 

: 245 0 $5 1! NONE 

: 246 0243 1! 

; 247 0244 1 ! COMPLETION STATUS: 

; 248 0245 1! 

; 249 0246 1! SS$_NORMAL Normal successful sorecel ‘on 

; $20 S84 : Any error from LIBSGET_INPUT or STRSFREE1 

; $26 0328 1 ! SIDE EFFECTS: 

; 2 0250 1! 

; 254 0251 1! Writes a file. 

$ 29 OS3¢ 1! Any errors from RMSSCREATE, RMSSOPEN, RMSSCONNECT or RMSS$CLOSE 

>; 256 0253 1! are signalled. 

3s 257 0254 1! 

; 258 0255 1 !-- 

; 259 0256 1 

: 260 0257 BEGIN 

: 261 0258 

: 262 0259 LOCAL 

3; 263 0260 CuTput BUFFER : BLOCK (132, BYTE), : output buffer, for RMS 
; 264 0261 OUTPUT-FAB : SFAB_ i RMS FAB for the output file 
; $6? oses OUTPUT_NAM : SNAM~DECL, i RMS NAM for the output file 
: 266 026 OUT UT _RAB_: SRAB -DECL i RMS RAB for the output file 
: 267 0264 OUTPUT“FILE NAME = BLOCK [ E), i Name of output file 

3 $08 3 66 OUTPUT “RESULT "NAME aoe ORI “MAXRSS, BYTE); ! Place to store output file name 
i 270 6 

: $f 8 68 athe ES Se Bret : DSCS$W_LENGTH) = BCMARcount (*BASMSG'); 

: $f 69 tpur _FILE_NAM Detse. DTY yree = DSCS$K_D H4 | -ti 

: 27 70 OUTPUT"F ILE “NAME DSCS$B-CLASS] = DSCSK- 

: 215 4 te BUTPUT™ “FILE- NAME DStSAq POINTER) = OPLTT- a *Bxshsc" ); 

3 8 7 i Initialize the FAB, NAM and RAB for the output file 

: 278 P $598 $FAB_INIT (FAB = OUTPUT_FAB, 


a 7 


N 9 
BASSMSG = write BASMSG.MSG 16-Sep-1984 01:42: AX-11 Bliss-32 V4.0-74 
3 BASSMSG = Write BASMSG. TMP 12-88-1384 91:98:98 BASRTL’ SREIBASMSCGON. 6821 
: 279 P 027 FAC = (PUT), ' 
3 280 P 027 FOP = (OFP, SQO0, DFW), i 
; 281 PO £8 ORG = SEQ, i 
: 28 P 0o7 SHR = NIL. i 
; 28 P 0280 MRS = 132, i 
: 284 Pp 0 81 RAT = C i 
; 285 P ¢ RFM = VA ! 
3 286 P 6 § FNA = .OUTPUT_FILE_NAME FDSC$A_POINTER], 
: 287 P 0284 FNS = .OUTPUT-FILE-NAME COSCSW-LENGTHJ, i 
; 288 P 0285 DNA = UPLIT (*SRC$:. TMP") ' 
; 289 P 0286 DNS = XCHARCOUNT ('SRCS:.fMP"), i 
: 290 0 87 NAM = OUTPUT_NAM); 
: 291 P 0286 SNAM_INIT (NAM ="OUTPUT_NAM ' 
: 29 P 0289 RSA = OUTPUT_RESULT-NAME, i 
: 29 9290 RSS = NAMSC_MAXRSS); 
: 294 P 0291 SRAB_INIT (RAB = OUTPUT_RAB, ' 
> 295 P Og9e 2 RAC = SEQ, i 
: 296 P 029 : ROP = WBH. i 
: 297 P 0294 USZ = 132 i 
> 298 P0295 2 UBF = OUTPUT_BUFFER, 
3; 299 0296 2 FAB = OUTPUT~FAB); 
; 300 0297 2 !+ 
; 301 0298 2 ! Create the output file, and do the $CONNECT. 
: 302 0299 : in 
; 303 0300 BEGIN 
: 304 0301 3 
: 305 0308 3 OCAL 
3; 306 030 CREATE_STATUS 
: 307 0304 3 CONNECT_STATUS; 
; 308 0305 3 
: 309 0306 3 CREATE_STATUS = $CREATE (FAB = OUTPUT_FAB); 
: 310 0307 3 
: 311 0308 4 IF ( NOT .CREATE_STATUS) 
; 312 0309 3 
: 313 0310 3 SIGNAL_STOP ( ! 
3 314 0311 3 SHR$_OPENOUT + (BASS$K_FAC_NO*65536) + STSSK_SEVERE, ! 
: 316 §a18 3 OUTPUT_FILE_NAME ' 
: 317 031% -OUTPUT_FAB-CFAB$L_STSJ, .OUTPUT_FAB CFABSL_STVJ); 
; $30 Bzi6 CONNECT_STATUS = SCUNNECT (RAB = OUTPUT_RAB); 
3 321 0318 4 If ( NOT .CONNECT_STATUS) 
: 322 0319 THEN 
3 20 SIGNAL_STOP ( ' 
: 324 0321 SHRS_OPENOUT + (BASSK_FAC_NO*65536) + STSS$K_SEVERE ; ! 
: 356 0358 OUTPUT_FILE_NAME ' . 
; a 032% .OUTPUT_RAB~CRAB$L_STSJ, .OUTPUT_RAB CRABSL_STV)); 
: 329 3 END; 
3 $0 83 $ '¢ 
; $3 B356 : Point the file name descrifior to the resultant name string. 
: 3 0380 OUTPUT_FILE_NAME CDSC$W_LENGTH] = .OUTPUT_NAM CNAMSB_RSLJ; 
> 334 0 3 OUTPUT~FILE-NAME CDSC$B"DTYPE] = DSCSK_DTYPE_T; 
: 335 0332 OUTPUT-FILE-NAME CDSC$BICLASS) = DSCSK“CLASS“S: 
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B 10 
write BASMSG.MSG 16-Sep-19 ° 
Write BASMSG. TMP 14-Sep-1984 


1:99:08 AX-11 oi ss-32 V4.0 


BASRTL.S CIBASMSGGEN. 3 231 


OUTPUT_FILE_NAME CDSCSA_POINTER] = .OUTPUT_NAM CNAMSL_RSAJ; 


ie i! NOT WRITE_FILE (OUTPUT_RAB)) 
NS TGNAL STOP ( 


OUTPUT FILE_NAME 
BEGIN 
3 “close the output file. 
. LOCAL 
CLOSE STATUS; 

; CLOSE_STATUS = SCLOSE (FAB = OUTPUT_FAB); 
4 
3 
3 
3 
3 
3 
3 
; 
1 


t ( NOT .CLOSE_STATUS) 
SIGNAL STOP ( 


OUTPUT_FILE NAME 


END; 
RETURN (SS$_NORMAL) ; 


00 00 47 53 4D 53 41 $ 00000 P. 
00 00 00 50 4D 54 2€ 3A 24 43 52 535 00008 P. 


56 000000006 
E FD80 
0100 CE 010E0006 
00 0104 CE 0000° 


WrOOrWOreS 
nNTCOO™"™MoO 


FF2C 8=6CD £608 


00 BASSMSG:. 
MO 


! End of 
TITLE 
- IDENT 
-PSECT 


-ASCII 
-ASCII 


SHR$_WRITEERR + (BASS$K_FAC -N0*65536), + STSSK_SEVERE, : 


-OUTPUT_RAB™ CRAB$L_STS], pe See CRABSL_STV]); 


SHS CLOSEOUT + (BASS$K_FAC _NO*65536), + STSSK_SEVERE, : 


-OUTPUT_FAB”CFABS$L_STS), LOUTPUT_FAB CFABSL_STVJ); 


routine BASSMSG 


BASSMSG BASSMSG - write BASMSG.MSG 
\2-003\ 


SPLITS,NOWRT ,NOEXE ,2 


\BASMSG\<0><0> 
\SRC$: . TMP\<0><0><0> 


SYSSCREA re. Re ERAT 
SYSSCLOSE 


SCODES,,NOWRT ,2 


Save R2,R3,R4,R5,R6 
LIB$STO ¢ R6 
Ube O(SP). SP 
#17696726 OUTPUT FILE_NAME 
OUfPUT_FILE_NAME+4 
non Meese #0, “+ 0, “$RMS “OTR 


#20483, SRMS_PTR 


c-- 


— - —_—— — ——— _ — — SE 


rT 
-Sep-1 38% 91 26:08 ret Bliss-32 V4.0 


_gassnse BASSMSG = write BASMSG.MSG 
: BASSMSG = Write BASMSG. TMP 14-Sep-1984 BASRTL.SRC JBASMSGGEN. 5 2:1 
| FF30 CD 20000060 8F DO 0002F MOVL 4536871008. § srs PTR+4 
FF42 CD 20 1 8F B80 00038 MOVW Bt $32 
| FF49 CD 200 «BF B0 003F MOVW of le, asens PTR 
FF6B OCD 2 90 00046 MOVB a a 
FFS4 CD FECC CD 3 004 MOVAB ae regn NAM $RMS_PTR+40 
FF58 = CD 104 CE D 9005 MOVL QUT PU TF PILELN AMES , SRMS_ PTR+44 
| FF5C) CD 000° CF 3 005 MOVAB P.AAB,~ §-P 
FF60 CD 100 cE 90 00060 MOVB OiTPUt PILES NAME SRMS_PTR+52 
FF61 CD 6 90 00067 MOVB PTR+5 
FF62 = CD 84 8F 9B 9006¢ MOVZBW #132, SERS PTR ae56 
0060 00 6E 00 2C 00072 MOVC5 oO, (SP), #0, #96, SRMS_PTR 
FEC cD 00079 
FECC CD 600 F BO 007¢ MOVW #24578, sams PTR 
FECE (CD 01 8E 0008 MNEGB #1, $RMS PTR32 
FEDO = CD 6E 9E 00088 MOVAB OUTPUT RESULT _NAME, $RMS_PTR+4 
0044 &8F 00 6E 00 2C 0008D MOVCS #0, (SP), #0,°#68, SRMS_PTR 
0108 CE 00094 
0108 CE 4401 8F 80 00097 MOVW #17409, $RMS_PTR 
010C «CCE 0400 8F 3C O009E MOVZWL #1024, SRMS PTR+4 
0126 CE 94 OOOAS CLRB = $RMS_PTR+ +30" 
0128 CE 84 8F 9B 000A9 MOVZBW r33 $RMS_PTR+32 
12C «ss FF7C CD 9E OOOAF MOVAB OUTPUT sBURFER. SRMS_PTR+36 
FECS §= CD FF2C CD 9E 000B6 MOVAB_ OUTPUT-FAB, SRMS_PTR+60 
FF2C CD 9F OO0BD PUSHAB OUTPUT~F 
000000006 00 01 FB 000C1 CALLS #1, § 
14 50 £8 000C8 BLBS § CREATE_STATUS, 1$ 
7E FF34 CD 7D 000CB MOVQ QUTPUT~FAB+8, (SP) 
0108 CE 9F 00000 PUSHAB OUTPUT“FILE_NAME 
07 oD 00004 PUSHL #1 
001A10A4 BF DD 00006 PUSHL #1708196 
66 0S FB 000DC CALLS #5, LIBSSTOP 
0108 CE 9F OOODF 1$ PUSHAB OUTPUT _RAB 
000000006 00 01 FB 000E3 CALLS #1, SYSSCONNECT 
17 50 £8 OOOEA LBS CONNECT STATUS, 2$ 
0114 CE DD O00ED PUSHL  OUTPUT_RAB+ 
0114 CE DD 000F1 PUSHL OUTPUT~RAB+8 
0108 CE 9F O00FS PUSHAB OUTPUT“FILE_NAME 
01 oD 000F9 PUSHL 
001A10A4 8F DD O00FB PUSHL 
66 05 FB 00101 CALLS $STOP 
0100 CE FECF CD 98 00104 2$: MOVZBW a CB NAM+3, OUTPUT _F ILE_NAME 
0102 CE O10E &8F B80 0010B MOVW #270, OUTPUT FILE NAME+ 
0104 «CE FEDO CD D0 00112 MOVL  OUTPUT_NAM#4> OUTPUT_FILE_NAME+4 
0108 CE 9F 00119 PUSHAB OUTPUT 
0000v CF or FB 0011D CALLS , WRITE_FILE 
17 0 €8 001 é BLBS 
0114 CE DD 001 PUSHL ict -RAB+12 
0114 CE DD 00129 PUSHL OUTPUT~RAB+8 
0108 CE 9F 0012D PUSHAB OUTPUT ite _NAME 
1 DD 00131 PUSHL #1 
001A10D4 BF DD O91 3 PUSHL #1708244 
ry 5 FB 001 CALLS #5, LIBSSTOP 
FF2C CD 9F 0013C 3$: PUSHAB OUTPUT FAB 
000000006 00 gi Fe 0140 CALLS #1, SYSSCLOSE 
14 0 5 0147 BLBS CLOSE STATUS, 4$ 
7E FF34 CD ?D OO14A MOva UTPUT_FAB+8. -(SP) 
0108 CE OF OO14F PUSHAB OUTPUT” “FILE_NAME 


o——-— 


0290 


0296 


; Routine Size: 354 bytes, 


BASSMSG = write BASMSG.MSG 
BASSMSG = Write BASMSG. TMP 


50 


Routine Base: 


001A105C 3 
66 


D 10 
16-Sep-1984 01:42: AX-11 Bliss-32 V4.0-74 Page 11 
12-3 08-1 8c orig 98 EBASRTL SPC IBASMSCGEN.B 2:1 . (4) 
1 DD 00153 PUSHL at 3 
F DOD EH PUSHL #1708124 : 0356 
5 “ 0158 CALLS 45, LIBSSTOP : 
1 DO OO1SE 4$: MOVL #1, RO 3 0362) 
04 00161 RET 3; 0363 


SCODES + 0000 


) 


-—_-- ----- —-- ee ee eC —S— C+ - -—— —- --- = -- —_——__— 


1305-1 


ASSMSG BASSMSG = write BASMSG.MSG 4 01:42: AX-11 Bliss-32 v4.0-74 
bey WRITE_FILE = Actually athe the file 12-808-198e 94:98:98 YBASRTL SREIBASMSCGEN 6 2:1 
; 1 ZSBITL “WRITE_FILE = Actually write the file’ 
: 9 65 1 ROUTINE WRITE-FILE ( ' Actually write the file 
3 0 $6 1 OUTPUT_RAB ! Where to write each record 
3 71 6 1 2 
2 $ | 
3 7 $ 1 tee 
: e 29 i FUNCTIONAL DESCRIPTION: 
: 6 es This routine writes each record on the specified RAB. 
; 8 rh i CALLING SEQUENCE: 
; 80 2 ; ret_status.wlc.v = WRITE_FILE (OUTPUT_RAB.mz.r) 
; 8¢ 28 i FORMAL PARAMETERS: 
; se 8 9 ; ; OUTPUT_RAB RAB onto which to write the text 
; 86 038¢ 1 | IMPLICIT INPUTS: 
; O35 1! 
; 388 384 1! NONE 
3 89 0385 1! 
: 390 0386 1! IMPLICIT OUTPUTS: 
: 91 0387 1! 
3 4 0388 1! None 
3 9 0389 1! 
: 394 0390 1 ! COMPLETION STATUS: 
: 395 0391 1 i 
3 $09 308 1! SS$_NORMAL Normal successful completion 
; WD 0395 1! Any errors from RMS $PUT 
3 $05 9% «1! 
; 233 0 95 i SIDE EFFECTS: 
; 401 $399 1 Writes on the file connected to OUTPUT_RAB 
; 40 398 1! 
; 3 se he 
: 405 9401 BEGIN 
> 407 bc08 MAP 
g rts 4 bcos OUTPUT_RAB : REF $RAB_DECL; 
3 410 0406 LOCAL 
; 411 B38 '¢ 
: a 0408 i Stuff for BUILD_TEXT_LINE 
> 414 10 2. CTL_STR_DSC : BLOCK C8, BYTE) 
+ 615 11 TEMP_STR_DSC : BLOCK c6 BYTES 
: 616 lg TEMP"STRING : VECTOR (12, BYTE), 
: 617 1 ouT_CENGTH, 
; 4618 14 '¢ 
: 419 15 i Stuff for PRINT_LINE 
+ 421 i$ LINE_DESC : BLOCK (8, BYTE), 
: 058 bere Si 
; 4 1 ! End of stuff for PRINT_LINE 
; 626 0420 t- 


—_ fase write BASMSG.MSG 16-Sep-1984 39:98 AX-11 a -32 v4.0 


Oe 
—o 


3 FILE = Actually write the file 14-Sep-1984 BASRTL. SRCd BASMSGGEN. 5 2:1 
; 425 421 PRINTABLE Pete: x fee Ck (8, BYTE] 
3 6 6 4 HEX DESC YTE tB5, 
3; 6 4 TEXT : ByYfed, 
3; 6 : NAME ; Bt Ock rre ° 
s 6 5 SEVERITY : BLOCK 8, BYTE), 
; 450 4 § NAMLEN, 
; 431 4 TXTLEN: 
3 6 ¢ 4, 3 SEVLEN 
; 4 4 ; SEVERITY LADDR : REF VECTOR C, BYTE]; 
; 435 431 '¢ 
: ? A ¢ ‘ Set up TEMP_STR_DSC for BUILD_TEXT_LINE 
. 0434 TEMP_STR_DSC COSCS$W =LENGTH) = BET h 
: 439 3 5 TEMP_STR_DSC CDSC$B_D erised « DSCSK =brvee.t 
; 440 4 TEMP _STR_DSC ete: DSCSK-CLASS_ 
: 461 04 f ‘ TEMP-STR-DSC CDSCSA- ~POINTER] = CHSPTR ae STRING); 
: 44 0439 i Set up LINE_DESC for PRINT_LINE, etc. 
3 666 0440 cs 
3; 4645 0441 INIT_DESCRIPTOR (LINE_DESC); 
3 446 044 INIT_DESCRIPTOR roinraaLe _bESC); 
: 4467 044 INIT-DESCRIPTOR (HEX_DESC); 
: 668 0444 INIT~ DESCRIPTOR (TEX R: 
; 649 445 INIT “DESCRIPTOR (NAME ) 
; 430 Dug INIT<DESCRIPTOR (SEVERITY); 
3 $28 pees § . "put out the initial information. 
3; 4654 450 PRINT_LINE (<"!! This file, BASMSG.TMP, contains the definitions of the BASIC'’>, <' '>); 
3; 455 0451 PRINT_LINE (<'!! messages for VAX/VMS.’ This file is read by the MESSAGE sone ier ay <" “Dy 
: 456 045 PRINT_LINE (<P it to by ld an object file containing the BASIC messages.'>, < 
; 457 045 PRINT_LINE (<*!!">, >); 
> 458 0454 PRINT LINE (<* TITLE BASIC''s message text'>, <* '>); 
; 459 0455 PRINT_LINE (<*!!">, <° 
3 460 045 PRINT-LINE (<*, bacicfry/Svéren BAS, !SL">, <BAS$SK_FAC_NO>); 
3; 461 045 PRINT LINE (<*.BASE 0°> >); 
: re ¢| 0458 '¢ 
s 66 0459 ! rite a line for each of the 256 BASIC messages 
: 464 0460 
; 465 0461 
; 466 ps6 INCR CODE FROM 0 TO 255 DO 
: 467 046 N 
3 rr | re) ERRTXT (CODE, NAMLEN, NAME, TXTLEN, TEXT, SEVLEN, SEVERITY); 
; 670 66 PRINT_LINE (<*!AS/!AS <!AS>">, <NAME, SEVERITY, TEXT>); 
; 4671 67 END; 
3; 467 68 
3 47 re) '¢ 
3 rts) y i. Write out the 11 trailing error codes negtentnn at code 4085. 
3: 467 7 PRINT_LINE (< SE 4085'>, <" '>) 
: 47 47 PRINT_LINE (<7 ORF ILUSEZINO <for Fite ''AS at user PC !!XL> /EA0s2°2- <' ">); 
; 478 74 PRINT_LINE (<*USEPC_PSL/INFO <at user PC=!!XL, PSL=!!XL> /FAQ=2'>, ">); 
: 479 75 PRINT_LINE sScceores e <from immediate mode in module !!AC> Rhos" 1 <' > : ee 
> 480 ? PRINT-LINE (<1ON CHAFIL/INEO <on channel 1iSL for file 11AS at user PC fixh> / tho: a$*>, <° ">; 
: 681 047 PRINT-LINE (<"FROLINMOD/INFO <from Line !'SL in module !'AC> /FAO=2"> 


| 
| 
| 


a er Ba ee OE EOE BO eee 


10 

BASSMSG - write BASMSG.MSG 1S-Se 1984 01:42: AX=-11 Bliss-32 V4.0-74 Pa 
WRITE _FILE = Actually write the file 10398-1382 94:98:98 EBASRTL SRE BASMSGGEN.B52;1 = 

+78 PRINT_LINE (<*FROLINSUB/INFO <from Line !!SL in subprogram dy /FAQ=2">, <* *>); 

47 PRINT-LINE (<'FROLINFUN/INFO <from Line ‘'SL im external function !!AC> /FAQ=2'>, <* '>); 

480 PRINT_LIN *FROLINDEF/INFO <from Line !!SL in DEF !!AC in module !!AC> /FAQ=3'>, <* ‘> 

1 PRINT-LINE (<*FROLINDFS/INFO <from Line !'SL in DEF*® !!AC in module !!AC> /FAO=3'>, <* ‘>$ 

4 ¢ od LE (<"FROLINGSB/INFO <from Line '!SL im GOSUB !'SL in module !!AC> /FAO=3'>, <* ‘>; 

? ? PRINT_LINE (<"FROLINOEG/INFO <from Line !!SL im ON ERROR GOTO !!SL in module !!AC> /FAO=3'>, <* ">); 
485 '¢ 

4 $ } Write out the trailer Line 

4 PRINT_LINE (<".END'>, <* '>); 


—C Ooo 


049 DISCARD_DESCRIPTOR (LINE_DESC); 
049 DISCARD-DESCRIPTOR (PRINTABLE_DESC); 
0494 DISCARD_DESCRIPTOR (HEX DESC); 
0495 DISCARD_DESCRIPTOR (TEXT); 
0496 DISCARD_DESCRIPTOR (NAME); 
0497 DISCARD DESCRIPTOR (SEVERITY); 
0498 RETURN TSS$_NORMAL) ; 
0499 END; ! End of routine WRITE_FILE 
-PSECT SPLITS,NOWRT,NOEXE,2 
C 69 66 20 73 69 68 54 20 @1 21 00014 P.AAC: .ASCII \!! This file, BASMSG.TMP, contains the d\ ; 
= 20 54 2 47 53 4D 53 41 00023 3 
4 20 65 68 74 20 73 6E€ 69 61 00032 3 
20 73 6E 6F 69 74 69 6f 69 66 65 0003C eASCII \efinitions of the BASIC\<9> 3 
43 49 $3 41 4 $8 5 68 00048 3 
73 «65 61 73 65 $8 0 21 21 00054 P.AAD: .ASCII \!! messages for VAX/VMS. This file is r\ ; 
20 20 3 4D 56 2F 58 41 56 20 063 3 
$ 69 $3 65 6C 69 66 ? 0072 : 
20 65 68 74 20 79 oe : 64 61 6 007C ASCII \ead by the MESSAGE compiler\<0> : 
65 6C 69 70 6D 6F 6 45 47 41 oie : ; ae 3 
6c 69 75 6 60 6F 74 20 21 21 098 P.AAE: .ASCII \!! to build an object file containing th\ ; 
65 6C 69 66 2 4 63 65 6A 6¢ of ayer : 
6 4 20 6 of $3 of 69 4 306 3 
73 65 6D 20 43 4 3 41 4 0 $3 45 ASCII \e BASIC messages. \<0><0><0> : 
00 00 O E OCF 3 
49 54 E 2 ; Q i int B AAG. ASEH eaten! et BASIC \<0 : 
. “eae . *s message text\<0> ; 
ee , | 
7% «67 § 74 OOF 6 ; 
0 ? + 1 ‘sts P.AAH: .ASCII \!!\<0><0> 3 
53 2F 59 54 49 4C 49 & 4 E 1 P.AAL: .ASCII] \.FACILITY/SYSTEM BAS, !SL\<0><0><0> : 
4c 53 1 23 41 $¢ 20 4D 10F : 
. 4 3 41 4 ‘ 11C P.AAJ: .ASCII \.BASE 0\<0> 3 
41 21 3C 21 2F 53 4&4 4 183 P.AAK: ASCII \!AS/!AS <!AS>\<0><0><0> Z 
> 38 3 20 45 53 41 42 2€E 1 P.AAL: .ASCII \.BASE 4085\<0><0> 3 
4 F 4 5 4C 49 & 52 4 6 140 P.AAM: .ASCII \FORFILUSE/INFO <for file !!AS at user PC\ ; 
21 5 ‘ $8 re 3 7 F 6 3¢ 14F 3 
4 0 3 § 7 0 74 $i HF 3 
4F 41 46 2F 2 —E 4€ § 1 21 20 1 eASCI] \ 'EML> /FAO=2\<0><0><0> : 


c- o-oo 


~m % 
—_ 
> 
m 


uw =m 


oO WF —B VF FY VS FY VF FSF WF s we 
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4 10 
BASSMSG - write BASMSG.MSG 16-Sep-1984 01:42: AX-11 Bliss-32 V4.0-74 
WRITE_FILE = Actually ~. & the file 12-808- 1382 91:98:98 BASRTL SRE SBASMNCGoN 2;1 
177 
4 F 64 F 4 45 53 3 178 P.AAN: .ASCII \USEPC_PSL/INFO <at user PC=!!XL, PSL=!!x\ 
SHEHRRA ARETE BE 
§ D of 5 $8 C 4 1 
00 2 4 4F 4 6 2F 3 ef 1A ASCII \L> /FAO=2\<0><0><0> 
4F 46 rt} 4 , €& © 49 «GF 4 1AC P.AAO: .ASCII \FROIOL/INFO <from immediate mode in modu\ 
7%4 $1 69 64 65 gp 6D 69 6D 6F 1BB 
5 $e F $8 9 gf 9 65 64 1CA 
46 2F 20 SE 4 1 6 +5 10 «ASCII \ble !!AC> /FAO=1\<0> 
49 2F 4C 49 46 41 48 #43 SF GE 4F 1E4 P.AAP: .ASCII \ON_CHAFIL/INFO <on channel !!SL for file\ 
CREEL RHP eS BD 
73 $2 26 1 1 ; 41 i 1 25 020C eASCII \ '!AS at user PC !!XL> /FAO=3\<0><0> 
41 46 2F 20 3E 4C 21 21 20 aa . 18 
8 0 ASCII <0> 
49 2F 46 GF 4D & 49 4C 4F 52 46 O22C P.AAQ: .ASCI] \FROLINMOD/INFO <from Line !'!SL in module\ 
20 65 6€ 69 6C 20 6D gf 72 68 f 0 
65 6C 75 64 6F 6 0 6€ § O24A 
4F 41 46 2F 0 E 4 41 21 1 3 , 23 eASCII \ !!AC> /FAO=2\<0><0><0> 
49 2F 42 55 53 4E 49 4C 4F 52 46 00 P.AAR: .ASCII \FROLINSUB/INFO <from Line !!SL in subpro\ 
20 65 § 69 6¢ § $8 of 72 rt 3 0273 
gf 70 $ 0 of § ! 0282 
20 3E 45 41 21 21 i 3 8 2 : oe eASCII \gram !!AC> /FAQ=2\<0><0><0> 
49 2F 4E 55 46 sf 49 4C 4F H 46 8 AO P.AAS: .ASCII \FROLINFUN/INFO <from Line !'SL in extern\ 
20 65 $ 69 6C $ 6 F 72 66 3 OO2AF 
6E 5 74 78 § 0 gf 69 20 0028 
6E 6F 4 63 6€ 75 66 § C 61 002C ASCII Nal function !!AC> /FAO=2\ 
2 3 4F 41 46 2F 20 3 43 0020 
49 2F 46 45 46 GE 49 4C 4F 46 QO2EO P.AAT: .ASCII \FROLINDEF/INFO <from Line !!St in DEF !!\ 
20 65 6E€ 69 6C 20 6D 6F 72 66 HS O2EF 
¢] 21 20 46 45 44 20 3 69 9 € 
6C 3 6F 6D 20 6E€ 69 ¢3 4 0 eASCII \AC in module !!AC> /FA0=3\<0><0><0> 
se 3 8 4F 41 46 2F 20 3E 43 41 0031 
4 ef 46 44 4&4 49 4C 4F ¢ 46 00 $3 P.AAU: .ASCII \FROLINDFS/INFO <from Line !!SL in DEF* !\ 
20 65 6€ 69 6C 20 6D 6F 72 6 8 0 3 
21 20 2A 46 45 44 20 6E€ 69 4 
75 gs 6F 6D 2 ge 9 20 435 41 21 4C ASCII \!IAC in module !!AC> /FA0=3\<0><0> 
33 3D 4F 41 & F 20 3& 43 41 21 0035 
49 2F 42 53 & 35 49 4C 4F 52 46 00 P. AAV: ASCII \FROLINGSB/INFO <from iine !!SL in GOSUB \ 
20 $3 6 9 $f 20 6 F 72 $8 f 
0 4 5 4F 4 0 $f 6 86 
¢ 6F 6D 20 6€ $9 0 4 1 21 00390 ASCII \!E!SL im module !!AC> /FAO=3\<0> 
D 4F 41 rt 2F 20 3 43 41 21 21 0039F 
49 2F 47 & GF 3 4 4C 4F 2 46 AC P.AAW: .ASCII] \FROLINOEG/INFO <from Line '!SL in ON ERR\ 
20 93 $f 69 6C 20 6D 6F 72 $8 3 BB 
2 45 20 4E 4F 2 gf g 0 CA ; 
53 $1 $1 $8 4F 54 4F 4 2 4 D4 ASCII \OR GOTO !!SL im module !!AC> /FAO=3\<0> 
41 21 21 20 65 6c 75 64 6F $9 20 E 
33 3p 4F 41 46 OO3F 
464 4E 45 2€ OO3F8 P.AAX: .ASCII \.END\ 


~-EXTRN SYS$FAO 


-- 


—_____—— 
ASSMSG BASSMSG = write BASMSG.MS 
beiy 


| 
| 
| 


‘ oon : 
G 
| SSSR 
$ BHESSee 
FO AD 010E00 
Fo OA 44 
3C AE seoeoad® 
34 AE 020E00 
2c AE sat 
24 AE 020E0000 
1¢ AE 020006 
14 AE 02060069 
F8 AD 010E003F 
FC = AD 0000" 
FO 
18 
F8 
64 
05 
63 
F4 
14 
46 
65 
7D 
3¢ 
52 04 
66 
79 
F8 AD 010E0043 
FC AD 0000" 
F 
1 
64 ; 
05 
63 


WRITE_FILE = Actually write the file 


F4 
14 
a4 


OOFC 00000 WRITE.FILE: 


00 


10 
18-Sep-1984 
14-Sep-1984 


MRMNVLOO-MOwWoo"r 


GOOCCCWOoOoOooooooeoo 
SNA AA MINE — 


ROMOOWIO OD VN V*OWDVIOMI""w"OMOLoLflosf 
@owr>r> 
Sou—o 


SOS SS SS SS SS SS et ees tema eecoscvcvrvres? 


"wnODWClow™ 
MMOOVVIVIMOOOoowWw 
WOOD FOVNVIOMON— 


71:38:93 


«PSECT 


AX-11 Bliss-32 v4.0- 
BASRTL.SRC JBASMSGGEN 


SCODES ,NOWRT,2 
Save R2,R3,R4,R5,R6,R7 
STRSFREE1_DX, R7 

PRINT, R6 

STRSCOPY_R, RS 

SYSSFAO, “R4 

LIBSSTOP, R3 

=216(SP). SP 

#17694852, TEMP_STR_DSC 
TEMP STRING. TEMP_STR_DSC+4 
‘ 4471936, LINE_DESC 


Wee7h86, 

834471936, PRINTABLE_DESC 

Arye) x +4 

rt wag 6 HEX_DESC 

yeaa tte TEXT 

He 

434471936, NAME 

NAME + 

434471936, SEVERITY 
RITY+4 


SEVE 
#17694783, CTL_STR_DSC 
B SAAC. CTL_STR7DSC#4 


#1, LIBSSTOP 
TEMP STR DSC+4 
CENGTH 


out CEN 
LINE DESC 

#3, STRSCOPY_R 
BUILD STATUS? 4$ 
LINE BES 

GUTPOT RAB. R2 


—e=3>~-3°R8 = Ua US 
-—Cm—> > &-1 tale rmnrce 
Fro 


—————_-— 


10 
ASSMSG BASSMSG = write BASMSG.MSG 1b-se =1984 01:42: AX-11 Bliss-32 V4.0-74 Page 17 
3 3 URITE FILE = Actually urite the file ae tats ri eS yee i hg et et ne 9 5) 
5 FB OOOE CALLS #3, STRSCOPY_R ; 
| 9 9 9 ors BLBC BUILD STATUS; 7$ : 
3c AE. sO «OOOEC PUSHAB LINE_BESC ° ; 
DD OOODEF PUSHL R : 
6 FB Fi CALLS #2, PRINT : 
9 E 0 4 BLBC PRINT STATUS 8$ : 
F8 AD O10E0039 BF D0 000F7 VL.  #1769%777, CTL_STR_DSC + 0452 
FC OAD 0000' cf 9 OOF ROVAB B SAAE. CTL_STRIDSCF4 : 
FO AD 9F 0107 PUSHAB TEMP_STR_DSC ; 
1 AE 3 10A PUSHAB OUT_CENGTH ; 
FB OAD OOF 010 PUSHAB CTL“STR_DSC ; 
4 4 Fe 11 CALLS #4, SYSSFAO : 
5 0 £8 0011 LBS - FAO_STATUS, 3$ : 
DD 00116 PUSHL FAO"STATUS : 
63 01 FB 00118 CALLS #1, LIB$STOP : 
F4 OAD BD 0118 3$ PUSHL TEMP STR DSC+4 : 
146 AE OF Or IE PUSHAB OUT_CENGTH ; 
44 AE 9F 001 PUSHAB LINE DESC 3 
65 0 FB 00124 CALLS #3, STRSCOPY_R : 
79 50 E 00127 4$ BLBC BUILD STATUS; 10$ : 
3c .)hCU‘SA Ff OO12A PUSHAB LINE_BESC 3 
52 DD 00120 PUSHL R : 
66 2 FB OO12F CALLS #2, PRINT : | 
79 0 €9 001 2 5$: LBC PRINT STATUS, 11$ : 
F8 AD O10E0002 BF DO 001 MOVL  #1769%722, CTL_STR_DSC + 0453. 
FC AD 0000° cf i 0015 MOVAB P.AAF, CTL_STRIDSC#4 ; 
FO AD 9F 00145 PUSHAB TEMP_STR_DSC : 
MY AE 9F 00148 PUSHAB OUT_CENGTH 3 
F8 AD OF 00148 PUSHAB CTL7STR DSC : 
64 04 FB OO14E CALLS #4, SYSSFAO ; 
05 50 €8 00151 LBS  FAO_STATUS, 6$ ; 
50 DD 00154 PUSHL FAO-STATU : 
3 01 FB 00156 CALLS #1, LIBSSTOP F 
AD DD 00159 6s: PUSHL TEMP_STR_DSC+4 ; 
14 AE OF 0015¢ PUSHAB OUT_CENGTH ; 
AE 9F 0015F PUSHAB LINE 3 
65 03 FBO 16e CALLS #3, STRSCOPY_R : 
79 50 9 00165 7$: BLBC BUILD STATUS; 13$ : 
3c AE. sO: «00168 PUSHAB LINE_DBESC ; 
52 DD 00168 PUSHL R ; 
fh F 0160 CALLS #2, PRINT ; 
79 E 1 : 8$: BLBC PRINT STATUS 14$ : 
FB AD 01060025 F b0 17 MOVL  #1769%755, CfL_STR_DSC + 0454 
FC AD 0000" F : O78 HOVAB B SAAS. CTL_STRDSC#4 2 
FO AD oF 183 PUSHAB TEMP_STR_DSC : 
8 AE 9F 001 PUSHAB OUT_CENGTH : 
FB = AD «OOF 001 PUSHAB CTL7STR_DSC : 
64 4 re 18¢ CALLS #4, ~SYSSFAO ; 
05 0 €8 0018F BLBS FAO_STATUS, 9$ ; 
0 DD 198 PUSHL FAOTSTATUS ; 
63 1 FB 001 CALLS #1, LIBSSTOP F 
F4 AD DD 00197 9S: PUSHL TEMP STR DSC+4 : 
146 AE 9F OO19A PUSHAB OUT CENGTH F 
44 AE 9F 00190 PUSHAB LINE_DESC ; 


| 
| 
| 
i 
| 
| 


kK 10 
BASSMSG = write BASMSG.MSG 16-Sep-1984 01:42: AX-11 Bliss-32 V4.0-74 Page 18 
WRITE_FILE = Actually write the file 12-808-1 3b 1348:98 BASRTL. SRCIBASMSGGEN.B 2:1 - a 
5 FB OOIA CALLS #3, STRSCOPY_R ; 
9 93 9 148 10$:  6LBC BUILD STATUS 16$ : 
3c OO AE COS 14g PUSHAB LINE_DESC : 
52 DD OOIA PUSH : 
Fg 1AB CALLS #2, PRINT : 
£ AE 11$: BLBC PRINT STATUS 17$ : 
FB AD 010€ 0002 F b0 018 MOVL  #1769%722, CTL_STR_DSC + 0455 
FC 0000' cf — 00189 MOV P,AAH, CTL_STR-DSC#4 : 
0 pd 1BF PUSHL #32 : 
FO AD «OF 001C1 PUSHAB TEMP_STR_DSC F 
18 AE OF 001C4 PUSHAB OUT LENGTH : 
FB OAD OOF gic? PUSHAB CTL“STR_DSC ; 
64 4 re 1CA CALLS #4, ~SYSSFAO ; 
05 0 EB 001C LBS - FAO_STATUS, 12$ ; 
DD 001D PUSHL FAO-STATUS : 
63 1 FB 001D CALLS #1, LIB$STOP ; 
fF AD DD 00105 12$:  PUSHL TEMP STR DSC+4 : 
14 AE 9F 001D PUSHAB OUT_CENGTH : 
44 AF 9F 00108 PUSHAB LINE DESC : 
$5 9 4 001DE CALLS #35, STRSCOPY_R : 
9 0 : OO1E) 13$:  BLBC BUILD STATUS? 19$ : 
3C F OO1E4 PUSHAB LINE_DBESC ; 
5 Dp 001E7 PUSHL : 
66 02 FB O01E9 CALLS #2, PRINT ; 
9 50 £9 OOiEC 14$: BLBC PRINT STATUS 20$ F 
F8 AD 0O10E0019 8F DO OOTEF MOVL #1769%745, CTL_STR_DSC + 0456 
FC AD 000" CF 9E O01F7 VAB P.AAI, CTL_STRIDSC#4 : 
1A DD OO1FD PUSHL #26 ; 
FO AD OF OOTFF PUSHAB TEMP_STR_DSC : 
18 AE 9F 00202 PUSHAB OUT_CENGTH F 
FB AD 9F 0020 PUSHAB CTL7STR_DSC : 
64 04 re 00208 CALLS #4, “SYSSFAO : 
05 50 £8 00208 LBS  FAO_STATUS, 15$ ; 
50 DD 0020E USHL  FAO-STATUS : 
63 01 FB 00210 CALLS #1, LIB$STOP ; 
AD DD 00213 15$:  PUSHL TEMP STR DSC+4 : 
14 AE 9F 00216 PUSHAB OUT_CENGTH : 
AE 9F 00219 PUSHAB : 
65 03 FB 0021C CALLS #3, STRSCOPY_R : 
46 50 £9 O21F 16$:  BLBC BUILD STATUS; 20$ : 
3¢ F 00 PUSHAB LINE_DBESC : 
52 DD 00 PUSHL R : 
BS EE SEC ars. GARE Baia a08 : 
F8 AD 010E0007 Ft b0 § p MOVL Print SUAT CfL_STR_DSC : 0457 
FC AD 0000° cf E 00 OVAB P.AAJ, CTL_STRIDSC*4 : 
0 0D PUSHL #32 : 
FO AD OF PUSHAB TEMP_STR_DSC ; 
18 AE 9F 00240 PUSHAB OUT_CENGTH : 
FB AD «OF 0024 PUSHAB CTL“STR_DSC ; 
64 4 re 0 46 CALLS 4&4, “SYSSFA : 
05 0 £8 0024 BS  FAO_STATUS, 18$ ; 
0 DD 0024¢ PUSHL FAOTSTA : 
63 01 FB oF CALLS #1, "LIB$STOP : 
AD bb 18$ PUSHL TEMP STR DSC +4 F 
146 AE OF 4 PUSHAB OUT _C : 
AE OF 7 PUSHAB LINE_D : 


— or) 


10 
| BASRRSG BASSMSG - write Saees Res 18-Sep-1964 91:5 +08 rete Bliss-32 V4.0-74 Page 19 
-003 WRITE_FILE = Actually write the file 14-Sep-1984 11:55: BASRTL.SRCJBASMSGGEN.B32;1 (5) 
65 F A CALLS #3, STRSCOPY_R : | 
6C 9 9 : 19$ BLBC BUILD STATUS; 23S : 
3¢ COA F 6 PUSHAB LINE_BESC 3 
66 3 pe 4 ati ; PRINT : 
61 : £6 68 208 BLEC ©=—- PRINT_STATUS, 23S : 
OC AE D4 00268 CLRL CODE + 0462 
146 AE OF gf 21$ PUSHAB SEVERITY : 0464 
ge AE F 00 PUSH SEVLEN é 
‘ AE 9F 00274 PUSHAB TEXT : 
10 AE 9F 00277 PUSHAB TXTLEN : 
ec AE 3 0 7A PUSHAB NAME : 
C AE F 7D PUSHAB NAMLEN $ 
24 AE 9F 0 80 PUSHAB CODE ; 
000000006 00 0 FB 0028 CALLS ERRTXT : 
F8 AD O10EQ00D 8F p0 00 BA MOVL  #17694733, CTL_STR_DSC > 0466. 
Te et AE SF 00998 pumas Text me hee 
He Ae ohgse PUSH Se¥Eniry ; 
FO AD 9F 002A1 PUSHAB TEMP_STR_DSC : 
20 AE OF 90 Ad PUSHAB OUT_CENGTH : 
FB AD 9F OO2A7 PUSHAB CTL STR_DSC ; 
64 06 FB OO2AA CALLS #6 YSSF F 
05 50 €8 O0gAD BLBS § FAO_STATUS, 22$ : 
50 DD 00280 PUSHL FAO-STATUS F 
63 01 FB 0028 CALLS #1, LIB$STOP ; 
4 AD DD 0038 22$:  PUSHL TEMP_STR DSC+4 ; 
14 AE SF 002B8 PUSHAB OUT _CENGTH : 
AE 9F 00288 PUSHAB ul DESC : 
65 03 FB O02BE CALLS #3, STRSCOPY_R ; 
4F 50 £9 90¢¢1 LBC BUILD STATUS? 25$ : 
xc SBD pose? All at ae 
66 02 FB b05¢9 CALLS #2, PRINT ; 
77 50 €9 O02CC 23$: = BLBC PRINT _STATus 27$ ; | 
96 OC AE O00000FF BF F3 OO2CF AOBLEG #255, CODE, > 0462. 
F8 AD O10EQOOA 8F 00 00208 MOVL  #17694730, CTL_STR_DSC : 0472 
FC OAD 0000° cf i 0 £0 ROVAB p sAAL. CTL_STRDSC#4 : 
FO AD OF niet PUSHAB TEMP_STR_DSC ; 
18 AE OF OogeB PUSHAB OUT_CENGTH : 
F8 AD OF OO2EE PUSHAB CTLISTR_DSC ; 
64 4 FB 99 Fi CALLS #4, “SYSSF : 
05 0 E8 002F4 BLBS FAO_STATUS, 248 ; 
50 DD 99 F7 PUSHL FAO"STATUS ; 
63 01 FB 002F9 CALLS #1, LIBSSTOP ; 
AD DD OO2FC 24$:  PUSHL TEMP STR DSC+4 ; 
14 AE OF OOZFF PUSHAB OUT_CENGTH ; 
AE 9F 00 02 PUSHAB LIN DESC ; 
65 Q FB 030 CALLS #3, STRSCOPY_R : 
79 0 f 08 BLBC BUILD STATUS; 29$ : 
3c COA oF 8 PUSHAB LINE_BESC ; 
ee ee ! 
FB AD 010E0035 ar DO 00316 MOVL amy CfL_STR_DSC > 0473 


a ine EL are en eeu o 8 WI Se Skee 


| M 

ASSMSG BASSMSG = write BASMSG.MSG 16-Sep-1984 01:42: AX-11 Blis $-32 v4.0 Page 20 
artis WRITE_FILE = Actually write the file 14- ats 94:98:98 BASRTL. SRCIBASMSGGEN. a 2:1 . (85 

FC AD 0000" CF 9E 0031E MOVAB P.AAM, CTL_STR_DSC+4 : 

0 DD 4 PUSHL : 

FO «AD OOF $ PUSHAB TEMP STR psc : 

18 AE OF PUSHAB OUT_CENG : 

F8 =AD OOF C PUSHAB CHL: “STR oe : 

64 4 Fe F CALLS #4, SYSSFAO : 

05 0 €8 00 : BLBS  —- FAO_ STATUS, 26$ : 

0 DD 0 PUSHL FAO-STATUS : 

63 01 FB 7 CALLS #1 PIBSSTOP : 

F4 AD DD A 26$:  PUSHL TEMP STR DSC+4 : 

146 AE OF D PUSHAB OUT_CENGTH : 

44 AF OF 0 40 PUSHAB LINE DESC ; 

65 Q FB 0034 CALLS #3, STRSCOPY_R : 

79 0 £9 00 46 27$: LBC BUILD STATUS? 32$ : 

3c AE. OF «0034 PUSHAB LINE_DESC : 

52 DD 0034C PUSHL Re ; 

66 02 FB 0034E CALLS #2, PRINT : 
79 50 €9 00351 BLBC PRIN NT STATUS 33$ : 
F8 AD 010E0031 &F dO 00394 MOVL = #1 69% 69, CTL_STR_DSC t 0474 
FC OAD 0000" CF 9E 00 3¢ MOVAB P.AAN, CTL_STR-DSC#4 ; | 
20 DD 0036 PUSHL #32 ; | 

FO «AD OOF 00364 PUSHAB TEMP_STR_DSC : 

18 AE 9F b 30! PUSHAB OUT_CENGTH ; 

FB =OAD OOF 0 36A PUSHAB CTLSTR_DSC : 

64 04 FB 00360 CALLS #4, ~SYSSFAO : 

05 0 €E8 0037 BLBS § FAO_STATUS, 28$ ; 

50 DD 0037 PUSHL FAO-STA Tus : 

63 01 FB 0037 CALLS #1, 3tiBs TOP : 

AD DD 00378 28$:  PUSHL TEMP STR DSC+4 : 

14 AE 9F 0037B PUSHAB OUT pCENGTH : 

AE 9F 0037E PUSHAB LINE : 

65 03 FB 00381 CALLS @# orks 3 

79 50 €9 00384 29$:  BLBC BUILD pec ors: R58 ; 

3C 4s 9F 00387 PUSHAB LINE_BESC : 

52 DD 0038A PUSHL F 

66 02 FB 0038¢ CALLS : 
79 50 €9 OO38F 30$:  BLBC esinn’ iy ATUS 36$ 3 | 
F8 AD 010E0037 &F 060 00392 MOVL  #1769%775, CTL_STR_DSC + 0475 
FC OAD 0000" CF 9E 0039A MOVAB P.AAO, CTL STR “DSCT4 ; | 

20 oD 00349 PUSHL @# : 

FO AD OF ng PUSHAB TEMP_STR_DSC ; 

8 AE 9F 8 A PUSHAB OUT_CENGTH 3 

F8 AD OF O03A8 PUSHAB CTL7STR_DSC ; 

64 4 re O3AB CALLS #4, SYSSF : 

05 0 E8 OO3AE BLBS FAQ_STATUS, 31$ ; 

50 0D 00381 PUSHL FAO"STATU ; 

63 01 FB 00383 CALLS #1, LIBSsToP ; 

4 Ad bb B6 31$:  PUSHL Tehp TR DSC +4 F 

146 AE 9F 00389 PUSHAB rece NGTH : 

44 AE 9F 003BC PUSHAB CINE, ; 

65 9 FB BF CALLS @# : 

79 f C2 32$:  BLBC a si Tithe Ras : 

3c. OE OF: «003C PUSHAB LINE_DBESC : 

DD PUSHL $ 

3 9 Oo8cD 338: SLAC TATUS, 398 
F8 AD 010E00465 BF 00 00300 MOVL Pay rie! CfL_STR_DSC > 0476 


| 
| 


BASSMSG 
2-003 


BASSMSG = write BASMSG.MSG 
WRITE_FILE = Actually write the file 
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es De] 
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rete Bliss-32 LPF les 
BASRTL. SRC JBASMSGGEN.B52; 1 
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s TOP 
TEMP STR _DSC+4 
ouT_CENGTH 
LINE DESC 
#3, STRSCOPY_R 
BUILD STATUS? 44$ 
LINE_BESC 


#2, PRINT 
PRINT STAT 
#1769%777 
P.AAR, CT 


p ct 
TEMP_STR_DSC 
QUT _CENGTH 


US, 45$ 
CTL_STR_DSC 
_STR-DSC4 


zar-oa2aro4ta "Bam 

MNM=$C Ute CM > bP &-1 
f 

ow Mm TMmMNNnm 


ie 
#1 Bon? 


NT 
TATUS, 48$ 
84, CTL_STR_DSC 


ro 


: 0677 


: 0478 


: 0479 
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11 
ASSMSG BASSMSG - write BASMSG.MSG 1Bese =1984 01:4 AxX-11 Bliss-32 V4.0-7 Page 22 
Beaty WRITE_FILE = Actually write the file 14- Sep-19 4 i $8: 8 BASRTL.SRCJBASMSGGEN. 5 2:1 (85 
FC OAD 0000' CF 9E 0498 MOVAB P.AAS, CTL_STR_DSC+4 ; 
| 20 DD 0049 PUSHL F 
FO AD 9F 049A PUSHAB TEMP_STR_DSC : 
1 AE 9F 0049D PUSHAB OUT -LENGTH : 
FB AD OF O4A0 PUSHAB CTLISTR_DSC : 
64 04 FB O4A CALLS #4,” SYSSFAO : 
05 0 € O4Ag LBS - FAO_STATUS, 43$ : 
50 DD 004A PUSHL FAO-STATUS : 
63 01 FB 004AB CALLS #1, LIB$STOP : 
F4 AD DD OOGAE 43S: PUSHL TEMP STR DSC+4 : 
14 AE 9F 00481 PUSHAB OUT_CENGTH : 
44 At SF 00484 PUSHAB LINE 1 3 
65 0 FB 00487 CALLS #3, STRS$ : 
79 50 £9 004BA 44$:  BLBC BUILD er eeuss Roos : 
3¢ = AE. sO9F: «00480 PUSHAB LINE_BESC : 
52 DD 004C0 PUSHL : 
66 02 FB 004C2 CALLS #2, PRINT F 
79 0 €9 004C5 45$: BLBC PRINT STA 51$ ; | 
F8 AD 010E0041 8F DO 0048 OVL #1769%785, CTL_STR_DSC + 0480 
FC AD 0000" CF 9E 00400 MOVAB P.AAT, CTL_STRIDSC#4 : 
. 20 DD 00406 PUSHL : 
FO AD 9F 00408 PUSHAB TEMP_STR_DSC ; 
18 AE 9F 00408 PUSHAB OUT_CENGTH 3 
F8 AD 9F O04DE PUSHAB CTL“STR_DSC F 
64 04 FB 004E1 CALLS #4, SYSSFAO ; 
05 50 EB 004E4 BLBS §- FAO_STATUS, 46$ : 
50 DD 004E7 PUSHL FAO_STAT : 
63 01 FB 004E9 CALLS #1, LI8$STOP ; 
F4 AD DD OO4EC 46S: PUSHL TEMP STR DSC+4 ; 
14 AE OF OO4EF PUSHAB OUT_CENGTH 3 
44 AE 9F 004F2 PUSHAB LINE DE : 
65 03 FB 004F5 CALLS #3, STRSCOPY_ 3 
79 50 EY 004F8 47S: BLBC BUILD STATUS; 53$ : 
3c 0 AE.sOSF:«O04FB PUSHAB LINE_BESC F 
52 DD OO4FE PUSHL R2 ; 
6% 02 FB 00500 CALLS #2, PRINT | : 
79 50 £9 00503 48s: BLBC PRINT ; | 
F8 AD 010E0042 BF DO 00506 MOVL + 7O9% Be. a 5 he oR DSC + 0481 
FC AD 0000" CF 9E 0050E MOVAB P.AAU, CTL_STR7DSC#4 ; 
20 DD 00514 PUSHL # F 
FO AD 9F 00516 PUSHAB TEMP_STR_DSC ; 
18 AE 9F 00519 PUSHASB OUT_CE NoTH : 
FB AD 9F 0051C PUSHAB CTLZSTR_DSC ; 
64 4 FB 00918 CALLS #4, SYSSF ; 
05 0 €8 005 é LBS FAO_STATUS, 49$ ; 
50 DD 005 PUSHL FAO-STATUS : 
63 01 FB 00527 CALLS #1, LIBSSTOP F 
F4 AD DD 0052A 49S: PUSHL TEMP STR DSC+4 : 
14 AE 9F 00520 PUSHAB OUT_CENGTH 3 < 
44 AE 9F 00530 PUSHAB LINED ESC ; 
65 Q FB 00533 CALLS #3, STRSCOPY_R : 
79 0 9 0536 50$:  BLBC BuiLD STATUS; 56$ : 
F 005 PUSHAB €_BESC F 
DD 0053¢ PUSHL Re. F 
FB 053 CALLS PRINT : 
£9 00541 51$:  BLBC Paty TATUS 57$ F 
F8 AD 010E00463 BF 00 00544 MOVL #1769787, CTL_STR_DSC > 0482 


y 
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_ BASSMSG BASSMSG = write BASMSG.MSG 1bese -1984 01:42: AX-11 Bliss-32 V4.0-74 Pa 3 
3003 WRITE_FILE = Actually ne the file 12-8 08- 1 3be 97:98:98 EBASRTL. SRCIBASMSGGEN.B 2;1 ~ 3 
j 
FC AD 0000" CF 9E 0054 MOVAB P,AAV, CTL_STR_DSC+4 : 
an 0356 PUSHL #32 pitt. : 
| FO AD OF 03 4 PUSHAB TEMP_STR_DSC : 
1 AE 9F 00557 PUSHAB OUT_CENGTH 3 
FB AD «OOF 0055a PUSHAB CTL“STR_DSC : 
64 4 4 0550 CALLS #4, SYSSFAO ; 
05 0 E8 0056 BLBS FAO_STATUS, 52$ : 
0 DD 0056 PUSHL FAO-STATUS : 
63 01 FB 0056 CALLS #1, LIB$STOP : 
F4 AD pp 0568 52$:  PUSHL TEMP_STR_DSC+4 ; 
14 AE 9F 00568 PUSHAB OUT_CENGTH : 
44 ‘ oF Ooge USHAB LINE DESC 3 
65 Q FB 00571 CALLS #3, STRSCOPY_R : 
79 0 £9 0574 53$: LBC BUILD STATUS? 59$ ; 
3¢ ag F 00577 PUSHAB LINE_BESC : 
52 DD 0057A PUSHL R : 
66 02 FB 0057C¢ CALLS #2, PRINT : 
79 50 £9 0057F 54$:  BLBC PRINT STATUS, 60$ ; 
F8 AD 010E0048 BF DO 00582 MOVL  #1769%795, CTL_STR_DSC + 0483 
| = 0000" CF 9E 0058A VAB P.AAW, CTL_STR-DSC74 : 
20 DD 00590 PUSHL #32 ; 
FO AD 9F 00592 PUSHAB TEMP_STR_DSC : 
18 AE 9F 00595 PUSHAB OUT_CENGTH : 
F8 AD OF 00598 PUSHAB CTL~STR_DSC : 
64 04 FB 0059B CALLS #4, SYSSFA : 
05 50 £8 0059E LBS FAQ_STATUS, 55$ : 
50 DD 005A1 PUSHL FAO-STATUS ; 
63 01 FB 005A3 CALLS #1, LIB$STOP : 
F4 AD DD 005A6 55$: PUSHL TEMP STR _DSC+4 ; 
14 AE 9F OO0SA9 PUSHAB OUT_CENGTH 3 
44 os 9F OOSAC PUSHAB bin sc é 
65 0 FB OOSAF CALLS #5, STRSCOPY_R ‘ 
46 50 €9 00582 56$: BLBC BUILD STATUS; 60$ : 
3c) 0 AE. sO: «00585 PUSHAB LINE_BESC ; 
52 DD 00588 PUSHL : 
66 02 FB OOSBA CALLS #2, PRINT ; 
3B 50 £9 0058D 57$: BLBC PRINT STATUS, 60$ : 
F8 AD 010E0004 &F DO 005Cc0 MOVL  #1769%724, CTL_STR_DSC > 0488 | 
FC AD 0000' CF 9E 005¢8 MOVAB P.AAX, CTL_STRIDSC#4 : 
20 DD 005CE PUSHL #32 : 
FO AD 9F 00500 PUSHAB TEMP_STR_DSC : 
18 AE 9F 00503 PUSHAB OUT_CENGTH ; 
F8 AD 9F 00506 PUSHAB CTL7STR_DSC ; 
64 4 Fe 09909 CALLS #4, SYSSFAO : 
05 0 €8 0050C¢ LBS § FAO_STATUS, 58$ : 
50 DD 005DF PUSHL FAO STATUS : 
63 01 FB 005E1 CALLS #1, LIBSSTOP ; 
F4 AD DD 00564 58$:  PUSHL TEMP STR DSC+4 ; 
14 AE 9F 005E7 PUSHAB OUT CENGTH ; 
44 AE 9F OOSEA PUSHAB LINE DESC : 
65 FB OSED CALLS #3, STRSCOPY_R 5 
62 0 f 3FO 59$: BLBC BUILD STATUS> 67S : 
. aan F OOSF PUSHAB LINE_BESC 3 
52 DD Org PUSHL R : 
66 Q FB SF CALLS #2, PRINT F 
5 4 005FB 60$:  #BLBC PRINT STATUS, 67$ : 
3c0Oo AE sCOSF:s«OOOSFE PUSHAB LINE_BESC > 0492 
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WRITE_FILE = Actually write the file 


MSG BASSMSG = write BASMSG.MSG 


; 
3 


3 


“80 


1622 bytes, Routine Base: $CODE$ + 0162 


; Routine Size: 


& 11 
ASSMSG BASSMSG - write BASMSG.MSG hese -1984 01:42: AX-11 Bliss-32 V4.0-74 Pa 5 

bey PRINT = print a text Line on a file 12-8 08-1 3b 94398 :98 BASRTL. RCIBASMSGGEN.B 2:1 ” (3 
s 50S O 1 &SBTTL ‘PRINT = print a text Line on a file’ 

3 1 1 ROUTINE PRINT ( ! Print a text Line on a file 
; +} § 1 ADDR ! RAB onto which to print the Line 
; 08 09 1 TEXT_LINE i Descriptor of the Line to print 
. 3 5 1 ds 

3 S10 505 1 

s $11 208 1 !e4 

5 21¢ Ht } FUNCTIONAL DESCRIPTION: 

$ 218 Fah : This routine interfaces to RMS to print a Line of text. 

; 51% bai) : } CALLING SEQUENCE: 

: 218 0518 : ret_status.wic.v = PRINT (RAB_ADDR.mz.r, TEXT_LINE.rt.dx) 

; 520 0515 1 ' FORMAL PARAMETERS: 

3 2s} 3218 1! 

% § 0517 1! RAB_ADDR Pointer to the RAB onto which to print the Line of text 
3 ase B218 : TEXT_LINE Descriptor for the Line of text to be printed. 
s 523 0520 1 ! IMPLICIT INPUTS: 

3 258 0521 1! 

3 Ser 05 ; .% NONE 

s See 05 1! 

4 26? 0526 1°! IMPLICIT OUTPUTS: 

s 320 b2S¢ 1! 

g Soe 0526 1! NONE 

3 eae S27 1! 

s SS 528 1 ' COMPLETION STATUS: 

: 534 529 1! 

3 So0 05 7% SS$_NORMAL Normal successful completion 

s 336 0531 1! ALL RMS errors are returned to the caller, so that they can be 

s Sor O338 7 signalled with the file name. 

3; 538 05 : 2 

; 539 05 1 ! SIDE EFFECTS: 

; 540 0535 1! 

3; «541 0536 1! Does a $PUT to the RAB. 

; 20g 0537 1! 

3; ets 1 !-- 

3; 5446 0539 +1 

3 545 0540 $ BEGIN 

; 546 0541 

: th pare a+ RAB_ADDR : REF $RAB_DE 

3; 549 bate TEXT_LINE : REF BLOCK EB: BYTE); 

3 229 0545 

s 551 3266 LOCAL 

; 226 054 PUT_STATUS; 

s 33 3 : 

3; 554 4 '¢ 

; 555 0550 ' Fill in the RAB fields. 

; 226 B28) te 

; 55 358 RAB_ADDR FRABSW_RSZ = .TEXT_LINE foSCSW_LENGTH) | 

; 358 o33¢ , RABLADDR CRABSLIRBF) = .TEXTILINE DSCSA-POINTER); 

5 260 555 ' Now do the $PUT 

; 561 0556 te 


a a 


‘ 


PRINT = print a text Line on a file 14-Sep-1984 BASRTL. SRC BASMScéon. 8 2:1 
3 seh 33h PUT_STATUS = $PUT (RAB = .RAB_ADDR); 
; 64 359 If ( NOT .PUT_STATUS) THEN RETURN (.PUT_STATUS); 
: 566 0561 RETURN (SS$_NORMAL); 
; 567 0562 +1 END; ! End of routine PRINT 
.EXTRN SYS$PUT 
0000 00000 PRINT: .WORD Save nosis ; 050 
51 04 ac 0000002 ., MOVL : 055 
50 08 Ac DO 00006 MOVE —sTEXT “tine RO : 
32 Al 60 BO OOO0A MOVW (RO)> 34(R1) : 
8 Al 04 Ad 00 0000 MOVL 4(ROS, 40(R1) + 0553 
51 DD . PUSHL RI : 0557 
000000006 00 gi FB 0001 CALLS SYSS$PUT : 
03 0 €9 0001C BLBC put -STATUS, 1$ : 0559 
50 01 DO 0001F MOVL RO > 0561 
4 00022 1$: RET + 0562 


F 11 
| A SasG BASSMSG = write BASMSG.MSG 16-Sep-1984 gs AX-11 Bliss-32 v4.0 Page (if 
Routine Size: 35 bytes, Routine Base: S$CODES + 0788 
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ASSMSG BASSMSG = write BASMSG.MSG 18-5¢ -1984 01:42: AX-11 Bliss-32 V4.0-74 Pa 7 
3 3 HEX_TEXT = Return a binary string in hexadecima 1 ~3ep-19 4 94:98:98 EBASRTL SRe BASMSGGEN.852;1 ™ 3} 
| 3 $8 63 1 ZSBTTL “‘HEX_TEXT = Return a binary string in hexadecimal’ 

; 0 $e 1 ROUTINE HEX ya ( ' Return a binary string in hex 
; 571 5 1 OUTPUT DESC, ' Descriptor to receive the hex 
; 57 66 1 INPUT_CEN ! Number of input bytes 

: i es i INPUT“ADDR i Address of start of input 

b4 = 

$ 7 

; fe ff i lee 

; 2) ; FUNCTIONAL DESCRIPTION: 

: 57 ba78 1i This routine converts an arbitrary os of bytes into hex, so it 

: 280 bere : can be printed. Early bytes are put to the right of later bytes. 

3 28¢ 0976 i CALLING SEQUENCE: 

3 ape 0378 ; ; Status.wic.v = HEX_TEXT (OUTPUT_desc.wt.dx, INPUT_LEN.rl.v, INPUT_ADDR,ra.v) 
: 5B 0580 1 | FORMAL PARAMETERS: 

; 38 p28) . 7 

; 588 05 ¢ 1! output_desc Where the result text is stored. 

3 23 05 1! input_Ten Number of bytes of input 

: rb 82 : ; } input_addr Address of first input byte 

: 59 0 1 | IMPLICIT INPUTS: 

§ 298 b389 1! 

; 594 0588 1! NONE 

; 595 0589 1! 

3 296 Bea0 1 ! IMPLICIT OUTPUTS: 

; 591 1! 

; 598 o238 1! NONE 

; 599 0593 1! 

; 600 0594 1 ! COMPLETION STATUS: 

: 601 0595 1! 

; 60 2208 ,; SS$_NORMAL Normal successful completion 

; 60 0597 1! Any errors from STRSCONCAT 

; 604 0598 1! Any errors from STRSCOPY_DX 

: $03 $600 : SIDE EFFECTS 

; $09 9601 i : ; 

: 608 Rone : Calls STRSCONCAT and STRSCOPY_DX, thus manipulating string storage. 

3; 609 0603 1! 

2 en Be 

; 613 060g BEGIN 

: gia 8 P 

> 615 $9 § INPUT_ADDR : REF VECTOR BYTE) 

i 616 10 OUTPUT_DESC : REF BLOCK (8, BYTES; 

: 618 1 LOCAL 

; 61 1 INTER_DESC : BLOCK fe. BYTE), 

: 620 14 DIGIT_DESC : BLOCK . BYTE), 

: 621 15 DIGIT 

:. 6 é 16 STATUS; 

; $ & } INIT_DESCRIPTOR (INTER_DESC); 

3 625 0619 DIGIT_DESC CDSCSW LENGTH = |; 


a 


BASSMSG = write yay 4 ee. 
HEX_TEXT = Return a binary string in hexadecima 


bese 
e 

= 18: -Sep-1984 
DIGIT “DEE t [bstse- _DTYPEJ = DSCSK mitts 3 


ao 
NO 


DIGIT $SB-CLASS) = DSCSK-CLA 
DIGITIDESC EDSCSATPOINTER) = DIGIT: 


INCR CHAR_NO FROM 1 TO .INPUT_LEN DO 
BEGIN 
LOCAL 
CHAR; 


CHAR = .INPUT_ADDR f CHAR oN - 1); 
DIGIT = (.CHAR AND 15) + 


IF (.DIGIT GTR 9°) THEN DIGIT = .DIGIT - 


VW —O0OMm 


IF € NOT .STATUS) THEN RETURN (.STATUS); 
DIGIT = (.CHAR*=-4) + ‘0’; 


SLSSSS SSS SSS S.I-O-.9-.0-0- 0-0-0 


WNEAE WOOD NONE WOO 


IF ( NOT .STATUS) THEN RETURN (.STATUS); 
END; 


TATUS = STRSCOPY DX (. OUTPUT DESC, INTER_DESC 
4 Fang atthe CINTER DESC); 


D 
ETURN T 
ND; 


NO OCDNAVNE WN $0 DONA NEAR S$ OOONOUE WO 


Miteesesesetetetttttet ete eee 


Pe Se Se Se Ge Oe Se Se Ge Se Ge Fe Se Oe Oe OF Oe BH Se OH Ss Se OH Se Oe SH Oe Se Oe Se Oe ee ee 


AAAAAOOOO 
PAAATAII 


—nrr 


p-1984 aie 


10 = °0° 
STATUS = STRSCONCAT CINTER_DESC, DIGIT_DESC, INTER_DESC); 


); 


003C 00000 HEX_TEXT: 


55 000000006 00 C3 00002 


0c Ht 020E0000 ar dO 0000C 
AE D4 0014 
4 AE 010E0001 8F B0 017 
oe SEB 
4— 11 B08 
50 53 Oc AC gt 0027 1$: 
52 FF AO 9A 90 
6E 52 04 0 EF 00 
$§ D1 99 8 
BS 3 00 
= AE SF 004 2%: 
3 AE OF 8 4 ¢ 


98 YEASatL 


Bli iegace vV4.0-7 
. SRCIBASMSGGEN. 8 2;1 


+ ‘A’: 


IF (.DIGIT GTR *9") THEN DIGIT = .DIGIT = 10 = ‘0° + ‘A’; 
STATUS = STRSCONCAT CINTER_DESC, DIGIT_DESC, INTER_DESC); 


! End of routine HEX_TEXT 


ee ae oT 


ave 

RSC 

CP 
34471936, | 
17698731 
GIT 


INTER_DESC 


Sa 
ST 
4 
f DIGIT dEse 
D “oe! ley _DEST+4 


is 

INPUT ADDR, CHAR_NO, RO 
=1(ROJ, 
A § roight CHAR, DIGIT 


poo 


| 
Le 


BASSMSG = write BASMSG.MSG 


52 5 


AD $3 


000000006 90 
4 
000000006 00 
09 


000000006 00 
50 


; Routine Size: 164 bytes, Routine Base: 


14 


oc 


11 
1b-Sep-1 
HEX_TEXT = Return a binary string in hexadecima 14-Sep-1 


oO 


COOCS 


Oo 


44 04 
| 
: 

9 


F 
oF 


So 
AAMT E & 


WOMD~rome 


COOOCOCCooooooo 
SSSA AASe 


oO 
Se 


SSSSSOSSSSeoses 
OOoOooooooooooooo 


S 


ODT OW *ODO ™WoOOW 
[=] 
o 
2 
= 


onmomn"Ooon™"OOo "Non 


SCODES + 07DB 


3$: 


4$: 


984 01:42: AX-11 Bliss-32 V4.0-74 
3b 1338 :98 BASRTL SREIBASMLCGEN. 6821 
PUSHAB INTER_DESC 
CALLS #3, STRSCONCAT 
MOVL RO STATUS 
BLBC STATUS, 5$ 
ASHL #4, CHAR, R2 
MOVAB 48(R2), picit 
CMPL ici, r 
BLEG $ 
ADDL2 #7, DIGIT 
PUSHAB INTER_DESC 
PUSHAB DIGIT“DESC 
PUSHAB INTER~DESC 
CALLS #3, STRSCONCAT 
VE —_ RO STATUS 
LBC = STATUS, 5$ 
AOBLEQ INPUT_LEN, CHAR_NO, 1$ 
US INTER Dest 
SHL OUTPUT DESC 
CALLS #2, STRSCOPY_Dx 
VL —- RO, STATUS 
PUSHAB INTER DESC 
CALLS #1, STRSFREE1_Dx 
LBS = FREE_STATUS, S$ 
PUSHL FREE STATUS 
CALLS #1, CIBSSTOP 
MOVL STATUS, RO 


re 


BA SMSG BASSMSG = write BASMSG.MSG. 1b-5ep 1304 1:48:08 AX-11 Bliss-32 v4.0 Page z 
3 PRINTABLE _TEXT = Return a binary string in ASCI 1 aa 4 11:55: BASRTL.SRC BASHSCGEN. 3 231 (8) 

; 660 3 1 SSBTTL ‘PRINTABLE ~fExT ~ , Return a binary string in ASCII, printable’ 

; 661 6 Q 1 ROUTINE at “TEXT ! Return a binary string in ervacente ASCII 

; 66 6 1 OUTPUT_DESC, ' Descriptor £0 receive the text 

; 66 656 1 I NPUT T_CEN i Number of input byt 

; 66% ' _ INPUT “ADDR i Address of care n° input 

3; 6 6 1 

; 66 peed 1 !e4 

; o38 Beet ; FUNCTIONAL DESCRIPTION: 

; 670 oees 1! This routine converts an erortrary string of bytes into ASCII, representing 

3 of o6e : } unprintable characters in hexadecimal so the result can be printed. 

3; 67 8566 1 ! CALLING SEQUENCE: 

3; 674 667 1! 

3 of? 3208 : Status.wlc.v = PRINTABLE_TEXT (OUTPUT_desc.wt.dx, INPUT_LEN.rl.v, INPUT_ADOR,ra.v) 

s 677 0670 1 ! FORMAL PARAMETERS: 

3 678 0671 1! 

; 679 9384 1! OUTPUT_DESC Where the result text is stored. 

; 680 0675 1! I J Number of oyyes of input 

3 ret pore ; INPUT_ADDR Address of first input byte 

; 68 0676 1 ! IMPLICIT INPUTS: 

3; 684 0677 1! 

3; 685 0678 1! NONE 

3 686 0679 1! 

3; 687 0680 1 ! IMPLICIT OUTPUTS: 

; 688 0681 1! 

: 689 0682 1! NONE 

; 690 B88 1! 

; 691 4 1 ! COMPLETION STATUS: 

; 69 0685 1! 

3; +69 0686 1! SS$_NORMAL Normal successful completion 

; 694 0687 1! Any errors from STRSCONCAT 

: 695 0688 1! Any errors from STRSCOPY_DX 

3 696 0689 1! 

3; 697 0690 1 ! SIDE EFFECTS: 

: 698 0691 1! : . ; 

3 45 st : Calls STRSCONCAT and STRSCOPY_DX, thus manipulating string storage. 

; 701 94 1 !e= 

; 70 0695 1 

3; 70 2698 BEGIN 

: 704 069 

3; 705 3638 

3 A 99 P INPUT ADDR : REF VECTOR f BYTE] 

: 70 0700 OUTPUT_DESC : REF BLOCK (8, BYTES; 

: 708 0701 

3; 709 4407 CAL 

; 710 070 INTER DESC : BLOCK (8, BYT J. 

¢ ii 0704 CHAR_DESC : "BLOCK fe. “BYTE 

: ne $4 CHAR REP : VECTOR (4; BYTE). 

> PF 7 quem 

: (714 378 

; 715 ne tag the CINTER RESC): 

3; 716 0709 bese DSC$W_LENGTA) = 1; 


nets reese stan isa TOD IRON ee 


| BASSMSG BASSMSG ae 
- write BASMSG.MSG 16-Sep-19 1:42: AX-11 Bliss-32 V4.0-74 Page 31 
panty PRINTABLE_TEXT = Return a binary string in ASCI 12-808-1 3c 91:98:98 EBASRTL SRe BASMSGGEN. $251 e B 
s Ti? 719 CHAR_DESC [DSCSB_DTYPE] = DSCSK_DTYPE_| 
3 71 71 CHAR_DESC 44S yr = DSCS$K CLASS ° 
; f} ay CHAR-DESC LDSCSA_POINTER] = CHAR_REP [0]; 
: 721 714 INCR CHAR_NO FROM 1 TO .INPUT_LEN DO 
. F ¢ 715 BEGIN 
2 at 
: 7246 71 LOCAL 
3 4 5 ay CHAR; 
3 ? Bf Y CHAR = .INPUT_ADDR C.CHAR_NO = 1]; 
: & § 07 ¢ 4 IF ((.CHAR GEQ %xX°20') AND ! 
; 730 8? 4 (.CHAR LSS %X'7F") AND ! 
; 731 724 & ~CHAR NEQ ‘<") AND ! 
rr g 0725 4 (. CHAR NEQ ‘''')) 
* . 07 $ 3 N 
i. . 07 4 BEGIN 
3 f 5 0728 4 !+4 
3 0729 4 ! Show character as itself. 
. F 0730 4 !- 
3; 738 0731 4 CHAR_REP (0) = .CHAR; 
: 739 07 : 4 CHAR-DESC CDSC$W_LENGTH) = 1; 
; 740 Ore 4 END 
3; «741 0734 3 ELSE 
3 746 0735 4 BEGIN 
3; 74 0736 4 !+ 
: 746 tat 4 ! The character is not printable. Represent it by <>. To avoid 
: 745 4 8 4 ! ambiguity, ‘<"' and ''" are also represented this way. Control characters 
3 i. 3894 2 SOH through SUB are represented by <“letter>; others characters by <hex>. 
: 748 0741 4 CHAR_REP (0) = ‘<’; 
3: 749 4544 4 
; 750 074 5 IF (((. CHAR + 2X°40") GEQ ‘A*) AND ((.CHAR + 2xX°40") LEQ 'Z")) 
3; «751 0744 & THEN 
~ = 0745 5 BEGIN 
; 75 0746 5 CHAR_REP [1] = °*'; 
3 754 0747 § CHAR-REP [2] = .CHAR + %X"40'; 
3; 755 0748 5 END 
3; 756 0749 4 ELSE 
3; 757 0750 5 BEGIN 
3; 758 0751 2 
3; 759 0736 LOCAL 
g % b2 27 ; DIGIT; 
: 76 0795 DIGIT = (.CHAR*=4) + 'O'; 
; 76 07 § : 
5 ree ta LA IF (.DIGIT GTR *9") THEN DIGIT = .DIGIT = 10 = ‘O° + ‘A’; 
: 766 759 CHAR_REP [1] = DIGIT: 
; ror 760 DIGIT = (.CHAR AND 155 + '0'; 
; 16) IF €.DIGIT GTR *9") THEN DIGIT = .DIGIT - 10 = ‘O° + ‘A’; 
: 771 764 CHAR_REP (2) = .DIGIT; 
. ie 765 & END; 
. oe 0766 4 


co 


ASSMSG BASSMSG = write BASM 
3 PRINTABL 

; 774 767 4 

s 775 768 4 

; 776 £6 

s 77 770 

; 778 0771 

; 779 4G; 

; 780 077 

: 781 0774 

; «78 0775 END; 

3; pire 

: Oe $9 DISCARD. 

3; 786 §778 RETURN T 

s 67 0780 1 3 


oc 

04 

08 
50 


0000007F 


04 


00000041 
0000005A 
01 

50 


01 
50 51 


SG.MSG 


CHAR 


STRSCOPY Dx ( 
DESCRIPTOR (IN 
» STATUS); 


AE 020E0000 
AE 010E0001 


50 40 


AE 5E 
51 FC 


REP C33 = '>!. 
CHAR DESC DSCSW_LENGTH] = 4; 


IF ( NOT .STATUS) THEN RETURN (.STATUS); 


,OUTPUT DESC, INTER_DESC); 
TER_DESC); 


! End of 


000C 00000 PRINTABLE rents 


0 
14 C2 00002 SUBL2 
8F 00 00005 MOVL 
AE 04 00000 CLRL 
8F DO 00010 MOVL 
$f 9E 00018 MOVAB 
> 4 0001C CLRL 
0090 31 Beets BRW 
AC (C1 Oost 1$: ADDL3 
AO 9A 00026 MOVZBL 
51 D1 0002A CMPL 
1¢ 19 00020 BLSS 
51 D1 HC 4 CMPL 
13 18 000 BGEQ 
51 01 00038 CMPL 
OE 13 30038 BEQL 
51 D1 00030 CMPL 
09 13 00040 BEQL 
51 90 popes MOVB 
9 BO 0004 MOV 
0 11 00049 BRB 
3¢ (90 Bp bee 2s: MOVB 
ot 
ti 9 005 BLSS 
50 } Fe: CMPL 
07 14 0006 BGTR 
F 90 00064 MOVB 
HS os, 
0 Ki 0070 ADDL2 
D1 0007 CMPL 
15 658 BLEQ 
? 4 ADDL2 
0 7B 4$: MOVB 
9° EF Q007F EXTZ 
CO 00084 ADDL 


11 
- wri 18-Se 1984 01:42: AX-11 Bliss-32 V4.0-7 
E_TEXT = Return a binary string in ASCI 14-Sep-19 4 1338398 BASRTL. RCIBASMSGGE 


STATUS = STRSCONCAT (INTER_DESC, INTER_DESC, CHAR_DESC); 


routine PRINTABLE_TEXT 


Save R2,R3 


#20 SP 
#34471936, INTER_DESC 
INTER +4 
#1769%721, CHAR_DESC 
CHAR_REP, CHAR_BESC+4 
CHAR_NO 


INPUT_ADDR, CHAR_NO, RO 
=1(ROY, CHAR 
CH 32 


CHAR, #127 
CHAR, #60 
CHAR, #34 


CHAR, CHAR_REP 
i. CHAR_DESC 


#60, CHAR_REP 
64(R1), RO 
RO, #65 

3$ 


RO, #90 

#94, CHAR_REP+1 
#-4, CHAR, RO 
#48 ight 

D Git, #57 

#7, DIGIT 

byGit CHAR_REP+1 

#0, #4, CHAR, DIGIT 
#48, vicit 


ne 


FF69 


; Routine Size: 


; 788 


BASSMSG = write BASMSG.MSG 16- 
PRINTABLE_TEXT = Return a binary string in ASCI 14- 
39 3 8) 09 7 
A 

9 . 

¢ AE 0 
cs E 

4 AE 4 8 9 
04 AE OF 9B 

10 AE ar Hi 

14 =A F QOOA 

000000006 99 9 43 OOA4 

D 5 9 OOAE 

52 63 08 ac Fi $08; 
OC AE 9F 000B8 

04 AC DD 000BB 

000000006 99 02 FB 4a 

50 00 000C 
OC AE 9F 000C8 

000000006 00 01 FB 48 

09 50 €8 000D 

50 dD 00005 

000000006 00 01 FB 00007 

50 53 DO OO0DE 

04 000E1 

226 bytes, Routine Base: SCODE$ + 087F 
0781 1 !<BLF/PAGE> 


7$: 


8$: 


pa19B¢ 11:58:58 


CMPL 
BL 


AX-11 wiles -32 V4.0-7 
BASRTL. SR) BASMSGGEN. : 231 


Re #57 


Of 17 other REP+2 
pig! CHAR REP+3 


IN sc 
#3, STRSCONCAT 
RO, STATUS 
ST PATOS. . 
INPUT_LEN , CHAR_NO, 1$ 
INTER™ "hy 
r,s DESC 
STRSCOPy_ Dx 
RO ay TUS 
ESC 
OR TRE REE? Dx 
FREE St STATUS, 8$ 
EE- STATUS 
, CIBSSTOP 
TUS, RO 


Page 3 


Be Se Se Ge Ge Ge Ge Se Ge Se Fe Be Ge Ge Ge Se Ge Fe Be Ge Fe Fe Se & 


; 0762. 


N 11 
BASSMSG BASSMSG - write BASMSG.MSG 16-Sep po 1388 91: $998 AX-11 Bliss-32 V4.0-7 
2-003 PRINTABLE_TEXT = Return a binary string in ASCI 14-Sep-1984 : BASRTL.SRC BASMSGGEN. “ 2;1 
: 790 7 1 END ! 
: 298 Ores } End of module 
3; 792 784 0 ELUDOM 

-EXTRN LIBSSTOP 

; PSECT SUMMARY 
; Name Bytes Attributes 
; SPLITS 1020 NOVEC,NOWRT, RD ,NOEXE,NOSHR, LCL, REL, Soldano bE batt fs 
; SCODES 2401 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
3 Library Statistics 
Be eo eer) ea Re eee Symbols ------# Pages Processing 
; File Total Loaded Percent Mapped Time 
: -$255$DUA28: CSYSLIBISTARLET.L32;1 9776 106 1 581 00:01.0 


Sees 


COMMAND QUALIFIERS 


Page 34) 
¥ (9) 


BLISS/CHECK= (FIELD. INITIAL OPTIMIZE) /NOTRACE/LIS=L1S$:BASRSGGEN/0BJ=08J$ :BASMSGGEN MSRC$:BASMSGGEN/UPDATE=(ENHS$ : BASMSGGEN 


Size: 2401 code + 1020 data bytes 
Run Time: 0:54. 

Elapsed Time: 01:50.6 

Lines/CPU Min: 858 


eveneee rere) 21680 


Used: 601 pages 


cae hs wag Complete 


| 


or 


oO 
er 
=> 
wn 
= 
—_ 
~< 
aa 
> 


0028 AH-BT13A-SE 


